home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / Pocket Forth rel.5 / Source code / applSource / pForthRes.asm < prev   
Encoding:
Assembly Source File  |  1991-07-07  |  5.5 KB  |  275 lines  |  [TEXT/ASM ]
  1. ;  pForthRes.asm
  2. ; Fri Apr 29, 1988 09:47:46 v 0.4
  3. ; Mon May 27, 1991 15:53:35 update resources for 0.4.1
  4.  
  5. ; Version identification resource
  6. .ALIGN    2
  7. RESOURCE    'P4TH'    0 '' 32
  8.     DC.B    37,'Pocket Forth    0.5'
  9.     DC.B    13,'7/11/91 C.Heilman'
  10.  
  11. ; the WIND resource
  12. .ALIGN    2
  13. RESOURCE     'WIND' 128  'PocketForth'    32 ; purgable
  14.     DC.W    40,2,41,102    ; t,l,b,r
  15.     DC.W    12        ; no grow doc proc w/zoom
  16.     DC.W    0        ; invisible
  17.     DC.W    $100        ; closable
  18.     DC.L    0
  19.     DC.B    12,'Pocket Forth'
  20.  
  21. ; MenuBar Resources
  22.  
  23. .ALIGN 2
  24. RESOURCE    'MENU'    1    'Apple Menu'
  25.     DC.W    1    ; Menu ID
  26.     DC.W    0    ; Width holder
  27.     DC.W    0    ; Height
  28.     DC.L    0    ; ID holder for std menu
  29.     DC.L    $FFFFFFFB
  30.     DC.B    1    ; Title length
  31.     DC.B    20    ; Apple symbol
  32.     
  33.     DC.B    19,'About Pocket Forth…'
  34.     DC.B    0    ; no icon
  35.     DC.B    0    ; no control key
  36.     DC.B    0    ; no marking character
  37.     DC.B    0    ; style
  38.  
  39.     DC.B    1    ; About length
  40.     DC.B    '-'
  41.     DC.B    0    ; no icon
  42.     DC.B    0    ; no control key
  43.     DC.B    0    ; no marking character
  44.     DC.B    0    ; style
  45.     
  46.     DC.B    0    ; End of this menu item
  47.     
  48. .ALIGN 2
  49. RESOURCE    'MENU'    2    'File Menu'
  50.     DC.W    2    ; Menu ID
  51.     DC.W    0    ; Width holder
  52.     DC.W    0    ; Height
  53.     DC.L    0    ; ID holder for std menu
  54.     DC.L    $15B    ; Enable 
  55.     DC.B    4    ; Title length
  56.     DC.B    'File'
  57.     
  58.     DC.B    5    ; Item text length
  59.     DC.B    'Open…'
  60.     DC.B    0    ; no icon
  61.     DC.B    'O'    ; control oh (that's the letter)
  62.     DC.B    0    ; no marking char
  63.     DC.B    0    ; plain style
  64.  
  65.     DC.B    1    ; Item text length
  66.     DC.B    '-'
  67.     DC.B    0    ; no icon
  68.     DC.B    0    ; no control key
  69.     DC.B    0    ; no marking char
  70.     DC.B    0    ; plain style
  71.  
  72.     DC.B    15    ; Item text length
  73.     DC.B    'Save Dictionary'
  74.     DC.B    0    ; no icon
  75.     DC.B    0    ; no control key
  76.     DC.B    0    ; no marking char
  77.     DC.B    0    ; plain style
  78.  
  79.     DC.B    9    ; Item text length
  80.     DC.B    'Debugger…'
  81.     DC.B    0    ; no icon
  82.     DC.B    0    ; no control key
  83.     DC.B    0    ; no marking char
  84.     DC.B    0    ; plain style
  85.  
  86.     DC.B    1    ; Item text length
  87.     DC.B    '-'
  88.     DC.B    0    ; no icon
  89.     DC.B    0    ; no control key
  90.     DC.B    0    ; no marking char
  91.     DC.B    0    ; plain style
  92.  
  93.     DC.B    6    ; Item text length
  94.     DC.B    'Print…'
  95.     DC.B    0    ; no icon
  96.     DC.B    'P'    ; control P
  97.     DC.B    0    ; no marking char
  98.     DC.B    0    ; plain style
  99.  
  100.     DC.B    1    ; Item text length
  101.     DC.B    '-'
  102.     DC.B    0    ; no icon
  103.     DC.B    0    ; no control key
  104.     DC.B    0    ; no marking char
  105.     DC.B    0    ; plain style
  106.     
  107.     DC.B    4    ; Item text length
  108.     DC.B    'Quit'
  109.     DC.B    0    ; no icon
  110.     DC.B    'Q'    ; control Q
  111.     DC.B    0    ; no marking char
  112.     DC.B    0    ; plain style
  113.  
  114.     DC.B    0    ; End of this menu item
  115.  
  116. .ALIGN 2
  117. RESOURCE    'MENU'    3    'Edit Menu'
  118.     DC.W    3    ; Menu ID
  119.     DC.W    0    ; Width holder
  120.     DC.W    0    ; Height
  121.     DC.L    0    ; ID holder for std menu
  122.     DC.L    $7B    ; enable flags
  123.     DC.B    4    ; Title length
  124.     DC.B    'Edit'
  125.     
  126.     DC.B    4    ; Item text length
  127.     DC.B    'Undo'
  128.     DC.B    0    ; no icon
  129.     DC.B    'Z'    ; control Z
  130.     DC.B    0    ; no marking char
  131.     DC.B    0    ; plain style
  132.     
  133.     DC.B    1    ; Item text length
  134.     DC.B    '-'
  135.     DC.B    0    ; no icon
  136.     DC.B    0    ; no control key
  137.     DC.B    0    ; no marking char
  138.     DC.B    0    ; plain style
  139.     
  140.     DC.B    3    ; Item text length
  141.     DC.B    'Cut'
  142.     DC.B    0    ; no icon
  143.     DC.B    'X'    ; control ecks
  144.     DC.B    0    ; no marking char
  145.     DC.B    0    ; plain style
  146.     
  147.     DC.B    4    ; Item text length
  148.     DC.B    'Copy'
  149.     DC.B    0    ; no icon
  150.     DC.B    'C'    ; control C
  151.     DC.B    0    ; no marking char
  152.     DC.B    0    ; plain style
  153.  
  154.     DC.B    5    ; Item text length
  155.     DC.B    'Paste'
  156.     DC.B    0    ; no icon
  157.     DC.B    'V'    ; control V
  158.     DC.B    0    ; no marking char
  159.     DC.B    0    ; plain style
  160.  
  161.     DC.B    5    ; Item text length
  162.     DC.B    'Clear'
  163.     DC.B    0    ; no icon
  164.     DC.B    0    ; no control key
  165.     DC.B    0    ; no marking char
  166.     DC.B    0    ; plain style
  167.     
  168.     DC.B    0    ; End of Edit Menu
  169.  
  170. ; b&w icon resource
  171.     
  172. .ALIGN    2
  173. RESOURCE    'BNDL'    128 ' ' 32
  174.     DC.L    'P4TH'        ; signature
  175.     DC.W    0,1        ; data allways the same
  176.  
  177.     DC.L    'ICN#'
  178.     DC.W    0        ; number of mappings -1
  179.     DC.W    0,128        ; map 0 to icon 128
  180.     
  181.     DC.L    'FREF'
  182.     DC.W    0        ; number of mappings -1
  183.     DC.W    0,128        ; map 0 to fref 128
  184.     
  185. .ALIGN    2
  186. RESOURCE    'FREF'    128 ' ' 32
  187.     DC.B    'APPL',0,0,0
  188.  
  189. .ALIGN 2
  190. RESOURCE    'ICN#'     128 ' ' 32
  191.     ; icon
  192.     DC.L    $0000001E,$0000007B,$000000F3,$00003DF0
  193.     DC.L    $0000FFF8,$00009FF8,$00000FFC,$00FF187C
  194.     DC.L    $0F011BBE,$700114CE,$80010327,$80008721
  195.     DC.L    $800089C1,$80009080,$80009E00,$80008118
  196.     DC.L    $800080E0,$80008041,$8000803E,$80004000
  197.     DC.L    $80004000,$80004000,$80004000,$8000C0C0
  198.     DC.L    $BFF901E0,$80010120,$EFFD0120,$380303F0
  199.     DC.L    $80001F9C,$10003FF8,$02003FC0,$00497F00
  200.     ; mask
  201.     DC.L    $0000001E,$0000007B,$000000F3,$00003DF0
  202.     DC.L    $0000FFF8,$00009FF8,$00000FFC,$00FF1FFC
  203.     DC.L    $0FFF1FFE,$7FFF17FE,$FFFF03FF,$FFFF87FF
  204.     DC.L    $FFFF8FFF,$FFFF9FFF,$FFFF9FFF,$FFFF81FF
  205.     DC.L    $FFFF80FF,$FFFF807F,$FFFF803E,$FFFFC000
  206.     DC.L    $FFFFC000,$FFFFC000,$FFFFC000,$FFFFC0C0
  207.     DC.L    $FFFF01E0,$FFFF01E0,$FFFF01E0,$B80303F0
  208.     DC.L    $80001FFC,$30003FF8,$06003FC0,$00DB7F00
  209.  
  210.  
  211. ; alert resources
  212.  
  213. .ALIGN    2
  214. RESOURCE    'ALRT'    257    'About'
  215.     DC.W    50,50,188,318    ; t,l,b,r
  216.     DC.W    257        ; DITL ID number
  217.     DC.W    $4444        ; Stages ($4444 = just display)
  218.  
  219. .ALIGN    2
  220. RESOURCE    'DITL'    257
  221.     DC.W    2        ; Number of items -1
  222.     
  223.     ; Item number 1
  224.     DC.L    0        ; handle holder
  225.     DC.W    0,0,144,270    ; t,l,b,r
  226.     DC.B    0        ; useritem
  227.     DC.B    0
  228.  
  229.     ; Item number 2
  230.     DC.L    0        ; handle holder
  231.     DC.W    30,40,100,235    ; t,l,b,r
  232.     DC.B    136        ; disabled+staticText
  233.     DC.B    78,'Pocket Forth   version 0.5'
  234.     DC.B    13,'     System 7 friendly!'
  235.     DC.B    13,13,'by Chris Heilman   7/11/91'
  236.  
  237.     ; Item number 3        *** System 7 only ***
  238.     DC.L    0        ; handle holder
  239.     DC.W    $FFFE,$FFFE,$FFFE,$FFFE    ; off screen rect
  240.     DC.B    $81,4
  241.     DC.W    1,257        ; helpItem,id of hdlg
  242.  
  243. .ALIGN    2
  244. RESOURCE    'ALRT'    258    'RedAlert'
  245.     DC.W    170,15,265,325    ; t,l,b,r
  246.     DC.W    258        ; DITL ID number
  247.     DC.W    $4444        ; Stages
  248.  
  249. .ALIGN    2
  250. RESOURCE    'DITL'    258
  251.     DC.W    1        ; Number of items -1
  252.  
  253.     ; Item number 1
  254.     DC.L    0        ; handle holder
  255.     DC.W    61,120,83,195    ; t,l,b,r
  256.     DC.B    4        ; type
  257.     DC.B    2,'Ok'
  258.  
  259.     ; Item number 2
  260.     DC.L    0        ; handle holder
  261.     DC.W    19,70,57,295    ; t,l,b,r
  262.     DC.B    136        ; type
  263.     DC.B    58,'An error occured, and the '
  264.     DC.B    'dictionary was not (re)entered. '
  265.  
  266. .ALIGN 2
  267. RESOURCE    'SIZE'    $FFFF
  268.     DC.W    $58E0
  269.     DC.L    $00020000
  270.     DC.L    $00007FFF
  271.  
  272. INCLUDE    pfOptional.txt        ; System 7 color & help stuff
  273.  
  274.     END
  275.